home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gs_cmdl.ps < prev    next >
Text File  |  1996-09-03  |  5KB  |  182 lines
  1. %    Copyright (C) 1994, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Parse and execute the command line.
  19. % C code handles the following switches: -h/-? -I -M -v
  20.  
  21. /cmddict 50 dict def
  22. cmddict begin
  23.  
  24. % ---------------- Utility procedures ---------------- %
  25.  
  26. % Get the next argument from the parsed argument list.
  27. /nextarg        % - nextarg <arg> true
  28.             % - nextarg false
  29.  { argv length 0 eq
  30.     { false }
  31.     { argv dup 0 get exch dup length 1 sub 1 exch getinterval /argv exch def }
  32.    ifelse
  33.  } bind def
  34.  
  35. % Run a file, under job control if implemented.
  36. /runjob            % <file> runjob -
  37.  { end        % cmddict
  38.    /startjob where { pop false () startjob pop }
  39.    run
  40.    //cmddict begin
  41.  } bind def
  42. /runfilejob        % <filename> runfilejob -
  43.  { findlibfile { exch pop } { (r) file } runjob
  44.  } bind def
  45.  
  46. % Expand arguments.  Free variables: expand@.
  47. /expandarg        % <string> expandarg <args...>
  48.  { dup () eq
  49.     { pop
  50.     }
  51.     { dup dup (--) eq exch (-+) eq or
  52.        { pop /expand@ false def
  53.        }
  54.        { expand@ { (@) anchorsearch } { false } ifelse
  55.       { pop findlibfile
  56.          { exch pop }
  57.          { (r) file }        % let the error happen
  58.         expandargfile
  59.       }
  60.      if
  61.        }
  62.       ifelse
  63.     }
  64.  } bind def
  65. /expandargfile        % <file> expandargfile <args...>
  66.  { [ exch cvlit
  67.     { token not { exit } if
  68.       dup type /stringtype ne { =string cvs dup length string copy } if
  69.       expandarg
  70.     }
  71.    /exec cvx
  72.    ] cvx loop
  73.  } bind def
  74.  
  75. % ---------------- Recognized switches ---------------- %
  76.  
  77. % Switches with arguments are defined as <x>;
  78. % switches without arguments are defined as -<x>.
  79.  
  80. % Switches without arguments
  81. /--
  82.  { nextarg not
  83.     { (-- and -+ require a file name.\n) print flush }
  84.     { //systemdict /ARGUMENTS argv put /argv [] def runjob }
  85.    ifelse
  86.  } bind def
  87. /-+ /-- load def
  88. /-@ /-- load def
  89. /-A { (@) Z } bind def
  90. /-c
  91.  {  { argv length 0 eq { exit } if
  92.       argv 0 get (-) anchorsearch { pop pop exit } if
  93.       pop nextarg token
  94.        { exch pop            % Probably should check for empty.
  95.      end exec //cmddict begin
  96.        }
  97.       if
  98.     }
  99.    loop
  100.  } bind def
  101. /-e { (#) Z } bind def
  102. /-E /-e load def
  103. /-f { } def
  104. /-q { //systemdict /QUIET true put } bind def
  105.  
  106. % Switches with arguments
  107. /d
  108.  { (=) search not { (#) search not { () exch dup } if } if
  109.    exch pop cvn dup where
  110.     { pop (Redefining ) print print ( is not allowed.\n) print flush pop }
  111.     { exch token
  112.        { exch pop }        % Probably should check for empty.
  113.        { true }
  114.       ifelse
  115.       //systemdict 3 1 roll put
  116.     }
  117.    ifelse
  118.  } bind def
  119. /D /d load def
  120. /f { dup length 0 ne { runfilejob } if } bind def
  121. /g
  122.  { (x) search { cvi pop exch cvi } { cvi dup } ifelse
  123.    //systemdict begin /DEVICEHEIGHT exch def /DEVICEWIDTH exch def end
  124.  } bind def
  125. /r
  126.  { (x) search { cvr pop exch cvr } { cvr dup } ifelse
  127.    //systemdict begin /DEVICEYRESOLUTION exch def /DEVICEXRESOLUTION exch def end
  128.  } bind def
  129. /s
  130.  { (=) search not { (#) search not { () exch dup } if } if
  131.    exch pop cvn dup where { pop dup load } { () } ifelse
  132.    type /stringtype ne
  133.     { (Redefining ) print print ( is not allowed.\n) print flush pop }
  134.     { exch //systemdict 3 1 roll put }
  135.    ifelse
  136.  } bind def
  137. /S /s load def
  138. /Z { true .setdebug } bind def
  139.  
  140. % ---------------- Main program ---------------- %
  141.  
  142. % We process the command line in two passes.  In the first pass,
  143. % we read and expand any @-files as necessary.  The second pass
  144. % does the real work.
  145.  
  146. /cmdstart
  147.  { //cmddict begin
  148.    /expand@ true def
  149.    [
  150.         % Process the GS_OPTIONS environment variable.
  151.    (GS_OPTIONS) getenv { 0 () /SubFileDecode filter expandargfile } if
  152.         % Process the actual command line.
  153.    .getargv { expandarg } forall
  154.    ] readonly /argv exch def
  155.         % Now interpret the commands.
  156.     { nextarg not { exit } if
  157.       dup 0 get (-) 0 get eq
  158.        { dup length 1 eq
  159.       { pop (%stdin) (r) file runjob
  160.       }
  161.       { dup length 2 gt
  162.          { dup dup length 2 sub 2 exch getinterval exch 1 1 getinterval }
  163.         if currentdict .knownget
  164.          { exec
  165.          }
  166.          { (Ignoring unknown switch ) print
  167.            dup length 1 eq { (-) print print } if print
  168.            (\n) print flush
  169.          }
  170.         ifelse
  171.       }
  172.      ifelse
  173.        }
  174.        { runfilejob
  175.        }
  176.       ifelse
  177.     }
  178.    loop end
  179.  } bind def
  180.  
  181. end        % cmddict
  182.